Harvard Graphics 4.0/Harvard Graphics 4.0 for Windows 95 - SPC (1995) - Disk 09 of 13.img/PROGRAM.9/Tutorial/T5PRES.DXR/00001.ls

Text File | 1995-09-12 | 3.3 KB | 188 lines

on startMovie
  set the centerStage to 1
end

on init
  global flipOut, slipOut
  installMenu(0)
  set the stageColor to 8
  set the mouseUpScript to EMPTY
  set flipOut to EMPTY
  set slipOut to EMPTY
end

on menuFlipCheck whichMenu
  global activeMenu
  if whichMenu = activeMenu then
    flip()
  end if
end

on flipNull
  global slipOut, flipOut
  set flipOut to EMPTY
  set slipOut to EMPTY
end

on flip
  global flipOut
  put flipOut
  if flipOut = EMPTY then
    if the frame < 999 then
      go(the frame + 1)
    end if
  else
    go(marker(flipOut))
  end if
end

on slip
  global slipOut
  if slipOut = EMPTY then
    if the frame > 2 then
      go(the frame - 1)
    end if
  else
    go(marker(slipOut))
    set slipOut to EMPTY
  end if
end

on puppetize fromSprite, toSprite, state
  repeat with channel = fromSprite to toSprite
    puppetSprite(channel, state)
  end repeat
end

on checkRollOver fromSprite, toSprite
  global currentSprite, oldRollover
  repeat with channel = fromSprite to toSprite
    if rollOver(channel) = 1 then
      if currentSprite <> channel then
        set currentSprite to channel
        popMenu()
      end if
    end if
  end repeat
end

on popMenu
  global oldRollover, currentSprite
  set the ink of sprite currentSprite to 2
  if oldRollover <> currentSprite then
    set the ink of sprite oldRollover to 36
  end if
  set oldRollover to currentSprite
  updateStage()
end

on fixit
  if the mouseCast = 489 then
    cleanupmenu()
  else
    repeat while the mouseDown = 0
      checkRollOver(6, 13)
    end repeat
  end if
end

on fixitagain
  if the mouseCast = 489 then
    cleanupmenu()
  else
    repeat while the mouseDown = 0
      checkRollOver(6, 14)
    end repeat
  end if
end

on cleanupmenu
  global flipOut
  set the mouseUpScript to EMPTY
  set flipOut to EMPTY
  flip()
  updateStage()
end

on setOrigin
  global origin
  set origin to the frame
end

on returnOrigin
  global origin
  if origin <> 0 then
    go(origin)
  end if
end

on flipKey
  set the keyDownScript to EMPTY
  flip()
end

on showBullet vSprite, state
  set the visible of sprite vSprite to state
end

on NextBullet
  if the key <> RETURN then
    set the castNum of sprite 12 to the number of cast "diamondBullet"
  else
    flip()
  end if
end

on checkKeyCode whatKeyCode
  if the keyCode = whatKeyCode then
    flip()
  end if
end

on checkKey whatKey
  global whatAction
  if the key = whatKey then
    whatAction()
  end if
end

on clickFlip buttDown, buttUp, Action1
  set the castNum of sprite the clickOn to the number of cast buttDown
  repeat while the stillDown
    if the mouseCast = the number of cast buttUp then
      set the castNum of sprite the clickOn to the number of cast buttDown
      updateStage()
    end if
    if the mouseCast = the number of cast buttDown then
      nothing()
    else
      set the castNum of sprite the clickOn to the number of cast buttUp
      updateStage()
    end if
    updateStage()
  end repeat
  if the mouseCast = the number of cast buttDown then
    set the castNum of sprite the clickOn to the number of cast buttUp
    updateStage()
    do(Action1)
  end if
end

on flipRightArrow
  flip()
end

on slipLeftArrow
  slip()
end

on hoofItHome
  go(1, the pathName & "Home")
end

on hoofItOut
  unLoadCast()
  clearGlobals()
  quit()
end